home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / bestofsd / Xor2.AMOS / Xor2.amosSourceCode
Encoding:
AMOS Source Code  |  1992-10-20  |  968 b   |  35 lines
  1. ' *****************************************************
  2. ' *                                                   *  
  3. ' *  This AMOS-program was made by Svante Danielsson  *  
  4. ' *                                                   *  
  5. ' *      Mail me at: til96sdn@mds.mdh.se              *  
  6. ' *                                                   *  
  7. ' *****************************************************  
  8.  
  9. Degree 
  10.  
  11. For N=1 To 0 Step -1
  12.    Screen Open N,320,256,32,Lowres : Flash Off : Curs Off : Hide 
  13.    Palette $4,$15,$26,$37,$48,$59,$6A,$7B,$8C,$9D,$AE,$BF,$CE,$DD,$EC,$FB,$FA,$E9,$D8,$C7,$B6,$A5,$94,$83,$72,$61,$52,$43,$34,$24,$14,$4
  14.    For Y=0 To 255 Step 16
  15.       For X=0 To 319 Step 16
  16.          Ink Rnd(30)+1
  17.          Bar X,Y To X+16,Y+16
  18.       Next 
  19.    Next 
  20. Next 
  21.  
  22. Shift Up 1,1,31,1
  23.  
  24. Repeat 
  25.  
  26.    A=Rnd(19)*16
  27.    B=Rnd(15)*16
  28.    X=144+Sin(C*2.0)*C/10
  29.    Y=116+Cos(C*2.0)*C/10
  30.    Screen Copy 1,A,B,A+16,B+16 To 0,X,Y,%1100000
  31.    Inc C
  32.  
  33. Until Key State(69)
  34.  
  35. Edit